object MAINDM: TMAINDM
  OldCreateOrder = False
  Height = 555
  Width = 731
  object MainDB: TpFIBDatabase
    DBName = '172.16.0.220:/opt/bases/collect_v3.fdb'
    DBParams.Strings = (
      'password=d_str255'
      'user_name=SYSDBA')
    DefaultTransaction = MainTransaction
    DefaultUpdateTransaction = MainTransaction
    SQLDialect = 3
    Timeout = 0
    DesignDBOptions = []
    CacheSchemaOptions.LocalCacheFile = 'collect.csh'
    CacheSchemaOptions.AutoSaveToFile = True
    CacheSchemaOptions.AutoLoadFromFile = True
    CacheSchemaOptions.ValidateAfterLoad = False
    WaitForRestoreConnect = 0
    AfterConnect = MainDBAfterConnect
    Left = 42
    Top = 30
  end
  object MainTransaction: TpFIBTransaction
    DefaultDatabase = MainDB
    TimeoutAction = TARollback
    Left = 46
    Top = 82
  end
  object MainContainer: TDataSetsContainer
    IsGlobalContainer = True
    Left = 48
    Top = 134
  end
  object MainErrorHandler: TpFibErrorHandler
    OnFIBErrorEvent = MainErrorHandlerFIBErrorEvent
    Left = 134
    Top = 36
  end
  object dsTypes: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SPR_DEBT_TYPE ')
    Transaction = MainTransaction
    Database = MainDB
    Left = 48
    Top = 178
  end
  object dscTypes: TDataSource
    DataSet = dsTypes
    Left = 135
    Top = 178
  end
  object dsContragents: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME,'
      '    SHORT_NAME,'
      '    ADDRESS,'
      '    JUR_ADDRESS,'
      '    PHONE,'
      '    PHONE2,'
      '    FAX,'
      '    EMAIL,'
      '    INN,'
      '    KPP,'
      '    BIK,'
      '    RS,'
      '    KRS,'
      '    BANK,'
      '    DIRECTOR,'
      '    DIRECTOR_JOBNAME,'
      '    DIRECTOR_ROD_PADEJ,'
      '    DIRECTOR_PHONE,'
      '    MAINBUH,'
      '    MAINBUH_PHONE,'
      '    NOTES,'
      '    IS_AGENCY,'
      '    IS_DELETED,'
      '    CREATEUSERID,'
      '    CREATEDATE,'
      '    MODIFYUSERID,'
      '    MODIFYDATE'
      'FROM'
      '    SPR_CONTRAGENTS ')
    Transaction = MainTransaction
    Database = MainDB
    Left = 48
    Top = 224
  end
  object dscContragents: TDataSource
    DataSet = dsContragents
    Left = 135
    Top = 224
  end
  object dscCollectors: TDataSource
    DataSet = dsCollectors
    Left = 135
    Top = 273
  end
  object dsCollectors: TpFIBDataSet
    SelectSQL.Strings = (
      'select ul.id, ul.name'
      'from user_list ul'
      'order by 2')
    Transaction = MainTransaction
    Database = MainDB
    Left = 48
    Top = 274
  end
  object dsPayTypes: TpFIBDataSet
    SelectSQL.Strings = (
      'select'
      'cast(0 as integer) as ID,'
      'cast('#39#1042#1089#1077' '#1086#1087#1077#1088#1072#1094#1080#1080#39' as varchar(16)) as NAME,'
      'cast(0 as smallint) as CSIGN'
      'from rdb$database'
      'union'
      'SELECT'
      '    ID,'
      '    NAME,'
      '    CSIGN'
      'FROM'
      '    SPR_PAY_TYPES '
      'order by 1')
    Transaction = MainTransaction
    Database = MainDB
    Left = 46
    Top = 320
  end
  object dscPayTypes: TDataSource
    DataSet = dsPayTypes
    Left = 133
    Top = 319
  end
  object ds_UserParams: TpFIBDataSet
    SelectSQL.Strings = (
      'select rname, rrole, rcode from USER_getcode')
    Transaction = MainTransaction
    Database = MainDB
    Left = 224
    Top = 28
    poUseBooleanField = False
    poGetOrderInfo = False
    poEmptyStrToNull = False
    oRefreshAfterPost = False
    object ds_UserParamsRNAME: TFIBStringField
      FieldName = 'RNAME'
      Size = 120
      EmptyStrToNull = False
    end
    object ds_UserParamsRROLE: TFIBStringField
      FieldName = 'RROLE'
      Size = 80
      EmptyStrToNull = False
    end
    object ds_UserParamsRCODE: TFIBIntegerField
      FieldName = 'RCODE'
    end
  end
  object dsc_UserParams: TDataSource
    DataSet = ds_UserParams
    Left = 224
    Top = 72
  end
  object dsWorkTypes: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SPR_STANDART_WORKS '
      'order by 1')
    Transaction = MainTransaction
    Database = MainDB
    Left = 218
    Top = 200
    object dsWorkTypesID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsWorkTypesNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dscWorkTypes: TDataSource
    DataSet = dsWorkTypes
    Left = 260
    Top = 198
  end
  object dsSpecFilterDebts: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    FILTER_NAME,'
      '    SQL_PART'
      'FROM'
      '    SPR_SPEC_FILTERS')
    Transaction = MainTransaction
    Database = MainDB
    Left = 46
    Top = 442
    object dsSpecFilterDebtsFILTER_NAME: TFIBStringField
      FieldName = 'FILTER_NAME'
      Size = 32
      EmptyStrToNull = True
    end
    object dsSpecFilterDebtsSQL_PART: TFIBStringField
      FieldName = 'SQL_PART'
      Size = 4000
      EmptyStrToNull = True
    end
  end
  object dscSpecFilterDebts: TDataSource
    AutoEdit = False
    DataSet = dsSpecFilterDebts
    Left = 130
    Top = 444
  end
  object dsDocTypes: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SPR_doc_types'
      'order by 1')
    Transaction = MainTransaction
    Database = MainDB
    Left = 48
    Top = 364
  end
  object dscDocTypes: TDataSource
    DataSet = dsDocTypes
    Left = 135
    Top = 363
  end
  object dsPropTypes: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SPR_prop_types'
      'order by 1')
    Transaction = MainTransaction
    Database = MainDB
    Left = 52
    Top = 408
  end
  object dscPropTypes: TDataSource
    DataSet = dsPropTypes
    Left = 137
    Top = 407
  end
  object dsTowns: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SPR_TOWNS ')
    Transaction = MainTransaction
    Database = MainDB
    Left = 388
    Top = 32
  end
  object dscTowns: TDataSource
    DataSet = dsTowns
    Left = 418
    Top = 32
  end
  object dsStreets: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    NAME as STREET'
      'FROM'
      '    SPR_STREETS'
      'order by 1')
    Transaction = MainTransaction
    Database = MainDB
    Left = 388
    Top = 88
  end
  object dscStreets: TDataSource
    DataSet = dsStreets
    Left = 418
    Top = 88
  end
  object dsTraits: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SPR_DETAILS ')
    Database = MainDB
    Left = 387
    Top = 137
    object dsTraitsID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsTraitsNAME: TFIBStringField
      FieldName = 'NAME'
      EmptyStrToNull = True
    end
  end
  object dsOrgs: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    USERORG '
      'where PARENT_ID is not null')
    Transaction = MainTransaction
    Database = MainDB
    Left = 388
    Top = 184
  end
  object dscOrgs: TDataSource
    DataSet = dsOrgs
    Left = 418
    Top = 184
  end
  object dsDogTypes: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SPR_DOGOVOR_TYPES ')
    Transaction = MainTransaction
    Database = MainDB
    Left = 48
    Top = 490
  end
  object dscDogTypes: TDataSource
    DataSet = dsDogTypes
    Left = 135
    Top = 490
  end
  object dsKinds: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SPR_DEBT_KINDS ')
    Transaction = MainTransaction
    Database = MainDB
    Left = 208
    Top = 146
  end
  object dscKinds: TDataSource
    DataSet = dsKinds
    Left = 263
    Top = 146
  end
  object dsJudDistricts: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    DISTRICT'
      'FROM'
      '    SPR_JUDICIAL_DISTRICTS ')
    Transaction = MainTransaction
    Database = MainDB
    Left = 388
    Top = 232
  end
  object dscJudDistricts: TDataSource
    DataSet = dsJudDistricts
    Left = 418
    Top = 232
  end
  object dsJudges: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    FIO'
      'FROM'
      '    SPR_JUDGES ')
    Transaction = MainTransaction
    Database = MainDB
    Left = 388
    Top = 288
  end
  object dscJudges: TDataSource
    DataSet = dsJudges
    Left = 418
    Top = 288
  end
  object dsJudKind: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SPR_JUDICIAL_KIND ')
    Transaction = MainTransaction
    Database = MainDB
    Left = 388
    Top = 336
  end
  object dscJudKind: TDataSource
    DataSet = dsJudKind
    Left = 418
    Top = 336
  end
  object dsWritState: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SPR_WRIT_STATE ')
    Transaction = MainTransaction
    Database = MainDB
    Left = 388
    Top = 384
  end
  object dscWritState: TDataSource
    DataSet = dsWritState
    Left = 418
    Top = 384
  end
  object dsWritDeps: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    SPR_WRIT_DEPARTMENTS ')
    Transaction = MainTransaction
    Database = MainDB
    Left = 388
    Top = 432
  end
  object dscWritDeps: TDataSource
    DataSet = dsWritDeps
    Left = 418
    Top = 432
  end
  object dsRelate: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    RELNAME'
      'FROM'
      '    SPR_RELATIONS ')
    Transaction = MainTransaction
    Database = MainDB
    Left = 380
    Top = 488
  end
  object dscRelate: TDataSource
    DataSet = dsRelate
    Left = 410
    Top = 488
  end
end
